﻿Public Class Form1

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a12 = "asd"
        While a12 = "asd"
            Dim a = Process.GetProcessesByName("Theoretical Attack Calculus Gear")
            If a.Length > 0 Then
            Else
                Shell("newpatching.bat", AppWinStyle.Hide)
                Dim pProcess() As Process = Process.GetProcessesByName("newpatching")
                For Each p As Process In pProcess
                    p.Kill()
                Next
                a12 = "ban"
            End If
        End While
    End Sub
End Class
